DOCUMENT HESUHE 



ED 11* 582 



CE 005 ail2 



AUTHOR 
TITLE 

INSTITUTION 
SPONS AGENCY 

PUB DATE 
NOTE 

EDRS PRICE 
DESCRIPTORS 



ABSTRACT 



Pointer^ Richard A* 

Plotter Research: Final Report. 

Vincennes Univ.^ Ind. 

Indiana State Dept. of Public Instruction, 
Indianapolis. Div. of Vocational Education. 
1 Feb 73 
52p. 

J1F-$0.76 HC-$3.32 Plus Postage 

♦Computer Graphics; *Computer Science; Drafting; 
Guides; *Instructional Materials; *Programing; 
Secondary Education 



The document provides an introduction to computer 
graphics and is intended to be used as reference material to assist 
the high school drafting studsnt in compiling information. A teletype 
machine with an acoustical coupler for telephone hookup and a 
time-sharing Peripherals Corporation flatbed plotter were acquired, 
and an illustrated programer^s guide was prepared as reference for 
utilisation of the system. The guide is intended to provide drafting 
students with an explanation of the techniques of plotting utilizing 
a G.E. 225 time-sharing computer and a time-sharing Peripherals 
Corporation flatbed plotter (TSP212). Section 1 provides a basic 
understanding of computerized drafting so that plotter output can be 
generated with minimal Fortran training. Available subroutines and 
instructions on how to use them are discussed. Six subdivisions 
cover: glossary of terms, using the time-sharing system, using the 
time-sharing plotter, subroutines, normal program structures, and 
sample program with plotter. Section 2 deals with the Fortran makeup 
of the subroutine available in the system. It provides knowledge of 
the structure of plotter-oriented subroutines so that, with a 
knowledge of Fortran, one can expand subroutines to provide a broader 
library of available subroutines. It is divided into areas on 
programing and subroutines. (Author/EC) 
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I. INTRODUCTION 

Early in February of 1971; this project was funded for the purpose 
of developing a course in computerized drafting for two-year Vocationel 
Drafting Trograms. 

This endeavor was well justified by the high degree of utilization 
of the computer by industry both for design and detailing purposes. 
We placed many students with Bell Telephone Laboratories and other 
companies such as General Motors, Allison Division, and Ford Motor 
Company Inc., who considered a basic knowledge of the computer and 
plotter hi jhly desireable. 

II. STATEMENT OF PROBLEM 

The major problem that confronted us was one of great expense 
for output hardware (plotters) and the limited availability of large 
enough Cv^mputers in our high schools and area vocational schools, not 
to mentici the incompatibility of software between different sizes and 
brands ol computers. 

We therefore set out to design a course in computerized drafting 
that was reasonably inexpensive and contained hardware and software 
that could be made available to any high school drafting program in the 
state. 

III. ANALYSIS AND FINDINGS 
A. ANALYSIS 

Shortly before the research was begun, Vincennes University 
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acquired a GE 225 computer with time-sharing copability. This meant 
that access to our computer could be gained from wherever there was a 
telephone. This then provided us with the computer availability that 
we needed to implement our research project. 

Once the research proposal was funded, we purchased a teletype 
machine with an acoustical coupler for telephone hookup and Time- 
Sharing Periferals flatbed plotter. This particular plotter was selected 
because of its low cost and its portability. 

We received a software package with the plotter that permitted 
us to do straight-line plotting only. We then had to develop a basic 
software package that would enable us to do basic drafting applications 
on the plotter. 
B. FINDINGS 

^ After the basic software package was developed it was decided 
that a student manual or "Programmer's Guide" should be prepared to 
provide a concise instructional booklet on the utilization of the system 
and its s )ftware. The booklet is, however, only a ready-reference and 
should not be considered to be a self-instructional document. 

IV. CONCLUSIONS AND RECOMMENDATIONS 

A. CONCLUSIONS 

AUer utilizing this system and the basic software package, several 

conclusions can be drav^n: 

1 , Industry is becoming more and more desirous of personnel who 
have even limited exposure to the computer. 



2. Given the opportunity and with proper motivation, students will 
expand significantly upon the basic software package and the 
plotter capability can grow to astonishing levels over a period 
of years. 

3. With a time-sharing system, the time devoted to this material 
can vary from one hour to many yeais. It is limited only by 
the desires of the user. 

4. To our knowledge, no other system is more economical or as 
flexible. 

B . RECOMMENDATIO NS 

It is our recommendation that this program be made available to 
other programs throughout the state of Indiana. 

We further recommend that there be two types of programs made 
available. 

1 . We recommend that a one-day workshop be held to train 
instructors to utilize the system and the available software. 
This would provide them with the basic information to introduce 
their students to this media. 

2. Because, however, many students get highly motivated by this 
media and because many drafting programs have the time and 
the budget to spend several weeks or months working with this 
system, we recommend a three-day intensive training session 
in which the instructors not only learn how to use the system 
and its software, but also learn the Fortran language and how 
to do basic Fortran programming so they and their students can 
attempt to do some original work. 
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To the User: 

This introduction to computer graphics is intended to provide the .student of 
drafting with an explanation of the techniques of plotting utilizing a G.E. 225 
timesharing computer and a timesharing Peripherals Corporation flatbed plotter 
(TSP212) produced by Houston Instrument. 



This Programmers' Guide is divided into two parts. 

Section #1 deals with a discussion of the available subroutines and includes 
instructions on how to use them. It is the intent that Section #1 provide a basic 
understanding of computerized drafting so that plotter output can be generated 
with a minimum of Fortran training. 

Section #2 deals with the Fortran makeup of the subroutine available on our 
system. It is the intent of this section to provide a basic understanding of the 
structure of plotter oriented subroutines so that, with a knowledge of '"ortran, one 
can expand our subroutines to provide a broader library of available subroutines. 



NOTE: This manual is strictly reference material and is designed to assist the 
student in compiling information. It is not a self-instructional booklet. 
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SECTION #1 




DIVISION #1 
GLOSSARY 

COMPUTER - A device to sLore and manipuIaLe daLa. 

FORTRAN - A compuLer language used predominaLely for scienLific applicaLions . 

INPUT/OurPUT - I NPUT refers to a meLhod or device used to get information 
intp a comi»u^er. 

OUTPUT refers to a method or device used to get information 
out of a computer, 

LIBRARY - A method by which the computer stores programs accessible to all users 

PARAMETERS - Refers to the actual value that is entered into a variciblo name. 

PLOTTER - An output device that generates a drawing from x-y movements. 

SUBROUTINE - A program written with variable names and no data. Data is 
added when the subroutine is called, 

USER NUMBER - A number assigned to all users for security purposes, 

VARIABLE - A fictitious name assigned to a value within a program that is not a 
constant (always the same value). 
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DIVISION #2 
USING THE TIMi:-SnARING SYSTEM 



The Time-Sharlag System consists of a GE-225 computer with a DATANET-30 
and a number of input/output stations (currently, models 33 and 35 teletypewriter 
machines). Individuals using the input/output stations are able to "share" the 
use of the computer with each other in such a way as to suggest that each has 
sole use of the computer. The teletypewriters are the devices through which the 
user communicates with the computer. 



The Keyboard 

The teletypewriter keyboard is a standard typewriter keyboard for the most 
part. There are three special keys -the user must be familiar with. 

RETURN The RETURN key is located at the right-hand end of 
the third row of keys, and does more than act as an 
ordinary carriage re turn. The computer ignores the 
line being typed until thi's key is pushed. 

The CTRL (control) key is located at the left-hand end 
of the third row of keys. When it is pressed along 
with the X key, the computer deletes the entire line 
being typed. This also acts as a carriage return. 

The backwards arrow key is the shift of 0. It is used 
to delete the character or space immediately preceding 
the If this key is pressed N times, the N preceding 
characters or spaces will be'deleted. 

Examples: 

ABCWT - - DE appears as ABODE when RETURN is pushed. 

AB C - - CDE appears as ABODE when RETURN is pushed. 

Some languages available on the Time-Sharing System use the three characters 
, , and . They are located on the keys L, K, and M, respectively, when 
either SHIFT key is pushed. 
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Teletypewriter Operation With Direct Telephone Line 



Besides the keyboard itself there are four control buttons necessary to operate 
the machine. . 



Button 



JDRIG 



CLR 



L0C LF 



BUZ-RLS 



Loca tion " 

Leftmost of six small buttons 
on the right 



Next to 0RIG 



Left of the space bar on 
Model 35 Teletypes only 

Rightmost of six small buttons 
on the right 



Function 

Turns on the teletypewriter 
and connects it to the phone 
line. 

Turns off the teletypewriter 
and disconnects the phone 
circuit 

Feeds paper to permit tearim 
it off 

Turns off the buzzer that 
signals a low paper supply 



If the teletypewriter is on a direct line to the computer, pushing the 0RIG button 
is all that is necessary to connect up with the computer. To disconnect from the com- 
puter, type G00DBYE or BYE. If that fails, push CLT. 

In order to connect with the computer from a teletypewriter not on a direct line: 

* Push the 0RIG button and wait for the dial tone. 

* Dial one of the numbers at the Time-Sharing Center. 
In order to disconnect, type G00DBYE or BYE, and if that fails, push CLR. 
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The Keyboard Required Statements at Sign On 

Once the teletypewriter is connected to the computer, push the "HERE IS" button. 
Remember that all typed lines must be followed by a carriage return (RETURN). The 
machine then asks for certain information which the user supplies by typing the in- 
formation when asked for it, and following each response with a carriage return. 

First, it asks for the user's number, which is assigned by the Time-Sharing 
Center. Next it asks for the system to be used (FORTRAN (FOR). Then it will ask 
whether it is a new or old program the user will be working on. A new program is 
one which the user is about to begin, while an old program is one whioh has been 
saved in memory for future use. 

- 14 ^ 

2-2 



TELETYPEWRITER OPERATION WITH A TELEPHONE 
AND AN ACOUSTICAL COUPLER 



To connect the teletypewriter to the computer you must first turn the power 
switch on che lower right side of the teletype panel to "LINE", this turns on the 
teletype. You then pick up the telephone and dial the telephone number for the 
computer. When you hear a high pitched sound, place the receiver in the acous- 
tical coupler with the cord facing the top of the teletype. When the green light 
on the teletype comes on you are ready to begin. 



NOTE: The green light is your coupling indicator and if it goes out, you 
have lost contact with the computer and need to call it upiagain. 
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Finally, it will ask for the new or old program name. After the machine types 
READY the- user may begin with his new program or pick up where he left off on his 
old program. A typical HELLO sequence tollows: (The underline indicates informa 
tion typed by the user.) 

HELLO or punch the "HERE IS" button 

USER NUMBER ~ 999999 R 

SYSTEM — FOR R 

NEW OR OLD ~ NEW R 

NEW PROBLEM NAME ~ M36-2 R 

READY 
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NOTE 



All programs should be punched off line on punch tape and when all typing 
errors are omitted, they can be Inputted into the system. 

When the program is inputted into the system, type SAVE (0, this tells the 
computer to retain your program. • 

Now you are ready to type RUN ^ this runs your program. Any errors noted 
at this time can be corrected simply ty retyping the corrected line number and its 
content and R, then type SAVE (^when the computer prints ready. 

When a lengthy program Is completely clean and debugged, you may run it 
in binary which sets up an object deck and shortens the run time tremendously. 
This method is of no value, however, until your program is completely debugged. 
You store in binary by typing MS<9- After it runs once, your object deck is on 
file and future runs are made by typing pNB (fi, 



GCNKRAL i;llt;tric computer time sharing service 

SYSTEM COMMANDS 



command s 
directive 

Control @ 
BYE 

GOODBYE 

HELLO 

NEW 

OLD 

Return 

RUN 
SAVE 

SCRATCH 
STOP 

UNSAVE 
User Number 
EDIT 

Alt Mode or 
Escape or 
Control with X 

Arrow ( ) 
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To cause the computer to stop whatever it is doing 
;vith the program when printing is occurring. 

To disconnect from the System. 

To disconnect from the System. 

To address the System or to change user number. 

To introduce a new program and destroy the working 
copy of the current program. 

To retrieve from saved store a previously saved file 
and destroy the working copy of the current program. 

To terminate a program line, cause the System to 
take action based upon input provided, and act as 
a normal carriage return. 

To compile and execute a program. 

To save permanently the working copy of a program. 

To eliminate from the working copy of a program every- 
thing but the program name. 

To cause'the computer to stop whatever it is doing with 
the program except when printing is occurring. 

To release and destroy a previously saved program. 

Six characters that identify the user to the System. 



To delete an input line as if nothing had been typed. 



To erase the last character(s) typed. SHIFT key must 
also be depressed. 

18 
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EDIT DELETE 
EDIT EXTRACT 
EDIT MERGE 



EDIT 

RESEQUENCE 



LIST 



LIST — X 



RENAME 



To erase portions of a program. 

To retain portions of a program. 

To combine saved files into working store and to 
resequence line numbers. 

To resequence line numbers in program in working store, 



To list the current working copy of a progra 



m , 



To list the current working copy of a program beginning 
at line X (X=l-5 digits). 

To change program name but not working copy contents. 



INFORMATIVE 

CATALOG 

LENGTH 

STATUS 
TTY 

MODE 

ALGOL 

BASIC 

FORTRAN 

KEY 

SYSTEM 
TAPE 



To list a user's catalog of saved programs. 

To request the number of characters in working copy 
of program. 

To request status of user on system. 

To learn which channel of the DATANET-30* is being 
used for your connection and to print current user 
number, problem name, system name, and status. 



To denote programming language. 

To denote programming language. 

To denote programming language. 

To reset terminal operation to normal after reading in 
paper tape. 

To change name of the system under which you are 
working. 

To inform the System that paper tape will be read in. 



. Special key on Teletype unit 
* DATAMET is a Reg. Trademark of the General Electric Company 
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EXHIBIT A 

REMOTE TERMINALS (MODEL 33 OR MODEL 35 T EL E TV P E U N I T S) 

-i^ rCl!' ^ ^ 
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MAGNETIC TAPES 



PRINTER 



GE.200 Series Time-Sharing System Configuration 



EXHIBIT B 



MODEL 33; TELETYPE UNIT 

Control Unit, 
Keyboard, 

Paper Tape Punch (Optional), and 
Paper Tape Reader (Optional) 
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OPERATION or PLOTTER 

Controls 



ON/OFF - Switches line power to the Plotter. 

ZERO - Pushbutton, when pressed, positions the pen at the *'zero" point (lower 
left-hand corner of plotting area) on the X-Y recorder unit as set with the ZTMO X 
and ZERO Y controls. Refer to Figure 1 . 

ZCRO X - Sots the horizontal position of the "zoro" point on Iho X-Y rocordor unil, 

ZERO Y - Sets the vertical position of the "zero" point on the X-Y roconlor unit. 

FULL SCALE - Pushbutton, when pressed, positions the pen at the "full scale" 
point (upper right-hand corner of plotting area); that is, the limiting distance 
the plotter pen may travel from the '-^zero" point. Refer to Figure 1. 

FULL SCALE X - Sets the horizontal position of the "full scale" point on the X-Y 
recorder unit. 



FULL SCALE Y - Sets the vertical position of the "full scale*' point on the X-Y 
recorder unit. 

PLOT - Pilot light indicates when system is 
in plot mode. 



PRINT - Pilot light indicates when system 
is print mode. 

RECORD/LOAD (TSP-212 only) - Setting 
switch to LOAD position (ON/OFF switch 
at ON) causes recorder pen carriage to 
move to right margin for loading or an- 
notating chart paper. RECORD position 
conditions recorder for normal operation. 



r' Ul SCALK 

PoiN r 

( X» lO.d. Y= 10.0 h 
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PLOTTING 
AREA 



7,KFU) POIN'I 
( X«'«, V^ *» ) 
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o 



Fig. 1 Plotting Area (Inside Dashed Outline) 
rtrt Established by Means of ZERO and FULL 

SCALfe X and Y Controls 
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!no time share terminal to which a TSP-212 is connected will operate normnlly 
when the ON/OFF switch on the TSP-212 is in the OFF position. When software 
requiring the-plotting of data is to be used, however, set the ON/OFF switch at 
ON. The plotter control until will then monitor the computer output and dire( t 
operation of the terminal printer and X-Y recorder as required by the computer. 

Under computer control, the TSP-212 is practically self-operating. The con- 
trols are primarily to establish the plotting area within which the X-Y recorder pen 
will plot the information required. Once adjusted, they seldom need to bo reset 
unless the plotting area is to changed. 

Figure 1 shows a plotting area established on the X-Y recorder. The X and Y 
coordinates for the four corners are given in "plotter units" and are always the 
same, no matter what the size of the plotting area. The area is set up by es- 
tablishing two points, the "zero" and "full scale" points, as follows (all con- 
trols mentioned are on the TSP-212 unless otherwise specified): 

1 . Set the ON/OFF switch at ON, and if a separate X-Y recorder unit 
is used, turn on power to that unit as well. 

2. Paper is loaded into the recorder in two different ways. 

"B" size ( 11 X 17) is loaded by simply slipping the sheet onto the 
surface of the plotter under the beam. Move the sheet down and to 
the left against the bottom and left guide so as to properly register 
the sheet. The surface of the plotter is perferated, and when on, 
provides a vacuum to hold the sheet in place. 

"A" size (8 1/2 x 11) is loaded in the same manner as "B" size 
except a plastic shield is placed on the plotting surface first. 
The shield provides identifying marks to provide for proper align- 
ment. The shield is provided for three reasons. First, it insures 
full vacuum for the smaller sheet. Secondly, it serves as a 
positioning guide. Thirdly, the shield protects the open surface 
areas of the plotter from pen markings. 

3. Pen loading is done by slipping the disposable unit into the clips 
on the beam holder. The pen unit has slots for the clips to grip 
on and the ink cap must be removed before placing it into position. 

NOTE: 

^'Q^I^^O" f"ust bo taken not to drop the pen as it may fall through the 
opening at the bottom of the unit and lodge in the component com- 
partment. 
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4. Sel tho location of the plotting area "zero" point. To do so, hold in tho 
ZERO pushbutton while adjusting first the ZERO X control and then the 
ZERO Y control to bring the writing device to the desired location for 
the lower left corner of the plotting area. 

5. Set the location of the plotting area "full scale" point. To do so, hold 
in the FULL SCALE pushbutton while adjusting first the FULL SCALE X 
control and then the FULL SCALE^Y control to bring the writing device 
to the desired location for the upper right corner of the plotting area. 
The plotting area is now established. 

NOTE: 

The locations of the "zero" and "full scale" points can be checked at 
any time while the plotting system is turned on. Press the ZERO button 
to set the writing device at the "zero" point; press the FULL SCALE 
button to set the writing device at the "full scale" point. 



1 

3- 



DIVISION #4 
INTRODUCTION 



Before you begin writing program, a brief explanation of the structure of 
subroutines is necessary. 

Subroutines are program written with variable names and constants; no data 
is included. In order to use a subroutine we CALL the subroutine and replace 
the variable names with our parameters (values). 

Example of subroutine (form) = call plot (X, Y, IP) 
Example of subroutine call (use) - call plot (7.5, 5., 13) 

One must also understand the difference between two types of variable names: 
fixed point (integer) and floating point (real). 

'Any variable name whose first character begins with I, J, K, L, M, or N is 
considered to be a fixed point variable, ie., integer, and the numeric value 
written will not include a decimal point. See CALL plot (X, Y, IP), the value 
of "IP" is "13# and is written with no decimal point. 

Any other variable name not beginning with I, J, K, L, M, or N is considered 
to be a floating point variable, ie., real and must include a decimal point. See 
CALL PLOT (X, Y, IP) the value of "X" is "7.5" and is written with a decimal point. 



I 

4-1 



id 

ERIC 



?.5 



PLOT LIN 1:3 

The PLOT subroutine plots a straight line. 
Call PLOT (X. Y, IP) 

(X, Y) are the coordinates of the point you wish to move to. 
(IP) is the pen position indicator. 

NOTE: 

a. If (IP) is 12, a line will be plotted from the present position to (X, Y) . 
If (IP) is 13, no line will be plotted from the present position to (X, Y) , 
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RECTANGLES 



The RECT subroutine plots rectangles. 
Call RECT (X, Y, H, W, AN, IP). 

(X, Y) are the coordinates of the lower left hand corner. 
(H) is the height of the rectangle. 
(W) is the width of the rectangle. 

(AN) is the angle that the base makes with the {+X) axis measured counter- 
clockwise . 

(IP) is the pen position indicator. 
NOTES: 

a. If (AN) = 0.0, the base will lie on the (h-X) axis. 

b. If (IP) = 12, a line v;ill be plotted from the present position to (X, Y). 
If (IP) = 13, no line will be plotted from the present position to (X, Y). 

ASSUME PEN ORIGINALLY AT a,0. 
CALL RECT. (I.,l.,3.,3., 0.,I2 ) 
CALL RECT (2.5, 1.5,I.4J.4,45..I3 ) 
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CENTER LINES 

The CLINE subroutine plots a center line. 
Call CLINE (X, Y, EX, EY). 

(X, Y) are the coordinates of the beginning point. 
(EX, EY) are the coordinates of the ending point. 
NOTE: 

a. The short dashes and spaces are .125 inches. 

b. The long dashes are approximately 1 .250 inches long. 

c. The total length must be equal to or greater than 2.375 inches 



CALL CLINE ( I., I..4..3.) 



EX,EY 



0,0 
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DASHED LINES 

The DASHL subroutine plots a dashed line. 
Call DASHL (X, Y, EX, EY). 

(X, Y) are the coordinates of the beginning point. 
(EX^ EY) are the coordinates of the ending point. 
NOTE: 

a. The dashes and spaces are approximately .125 inches long. 



CALL DASHL(I.,I.,4.,3.) 



2 - 



EX, 







4 












X.Y 









0,0 
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LEADER LINES 

The LEADR subroutine plots a leader line. 
Call LEADR (X, Y, A, DL) . 

(X, Y) are the coordinates of the tip of the arrowhead. 

(A) is the angle that the leader makes with the {+X) axis measured counter- 
clockwise. 

(DL) is the length of the leader line. 
NOTE: 

a. The leader can be plotted at any angle and terminates with a .125 inch 
horizontal line. 
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CALL LEADR ( I., I.,45..3.) 



0,0 













DL 






< 








X,Y 









2 3 
30 
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CIRCLE 

The CIRCLE subroutine plots a circle. 
Call CIRCLE (X, Y, RAD). 

(X, Y) are the coordinates of the center of the r-ircle. 
(RAD) is the radius of the circle. 



CALL 


. CIRCLE ( 


2.5,2.5,1.) 


y-RAD 






X,Y 





















0, 0 
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ARC 



The ARC subroutine plots a portion of a circle. 
Call ARC (X, Y, RAD, BA, EA) . 
(X, Y) are the coordinates of the center of the arc. 
(RAD) is the radius of the arc. 

(BA) is the angle that the beginning point makes with the (+X) axis, 
measured counterclockwise. 

(EA) is the angle that the ending point makes with the (+X) axis, 
measured counterclockwise. 



RAI 


























BA 








XY 




CALL / 


ARC (2.5,2 


.5,2., 90., II 


30.) 











0, 0 
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PLOT SYMBOLS ' 
The Symbols subroutine plots characters and numbers. 
Call Symbol (X, Y, HTI, THETA, NN, "WOR\ "D"). 

(X, Y) are the coordinates of the lower left hand corner of the first letter. 
(HTI) is the height of the characters to be plotted. 

(THETA) is the angle that the characters make with the (+X) axis, measured 
counterclockwise . 

(NN) is the number of characters and spaces to be plotted. 

"WOR", "D" - In the space following "NN" we type out the character we 
wish to plot. They must, however, be typed in sets of three and set in 
quotes and separated by commas. The last set can be three, or less, 
characters . 

Call Symbol (1., .25, 45., 9, "5-L", "ETT", "ERS") 















THETA 













0, 0 
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PLOT DIMENSION LINES 



The ijIMDNf, subroutine plots a dimension line and is Icrminated by arrowhemi 
CVjII DIMENL (X, Y, A, DL). 

(X, Y) are the coordinates of the tip of the left hand arrowhead. 

(A) is the angle that the dimension line makes with the (+X) axis, 
measured counterclockwise. 

(DL) is the length of the dimension line measured from the tip of one 
arrowhead to the tip of the other arrowhead. 

NOTE: The arrowhead is approximately 3/l6th inches long. 

If the value of the dimension is .5 inches or less, the dimension line 
is drawn with the arrowheads facing each other as is illustrated in 
EX. B. 
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NORMAL PROGRAM STRUCTURE 

Signifies this is a comment statement and not part of the program 
One space 

Identify program purpose 

100 C Program to plot lines 

Line number (every line must be numbered) 

It is suggested to start out at 100 and count by tens to avoid conjestion. 

Identify variable names 
HOC (X, Y) are coordinates of beginning point 

Use an i/iput statement to debug program 
120 INPUT, X, Y, IP 



Convert input statement to subroutine statement if desired after debugging 
120 Subroutine plot (X, Y, IP) 



Converts user unit to plotter unit so units on plotter surface correspond to 
plot dimensions . 
130 CALL OFFSET (0., 1.5, 0.,1.) 

Program Body (All programs must use this library function to ger plot capability 
180 $Use Plots*** 



Converts from print mode to plot mode so plotter can function. 
290 CALL TTY 



All subroutines used must be called up from library using $use (name) 
300 $ use PLOT 



for input statement 
3 1 0 STOP 



for subroutine 
310 RETURN 



terminates program 
3 20 END 



ERIC 
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SECTION #2 



DIVISION #1 



PROGRAMMING 
PLOTTER SYSTEM CONVENTIONS 
Plotter and User Units 

As shown in Figure 2, the plotting area within which plotting will be done is 
defined by the positions of the zero and full scale points, as set with TSP ZERO 
and FULL SCALE X and Y controls. The coordinates of these points are always 
X=0, Y=0 for the zero point, and X=10, Y=10 for the full scale point. The units 
for the coordinates are arbitrary and are associated only with the plotting device. 
They are referrec' to, therefore, as plotter units. All points to be plotted will 
fall within the plotting area, and their coordinates will be within the ranges 
X=0 to X=10 and Y=0 to Y=10, in plotter units. 

From the standpoint of the user, it is easier to handle information to be 
plotted by using the units associated with the information -(for example, doUors, 
hours, radians, etc.). Such units are referred'to as user units. One function 
of the plotter subroutines used with the TSP 212 is to translate any data identi- 
fied as being in user units into a form that can be acted upon by the plotter 
control unit. 

To illustrate the relations between user units and plotter units, consider 
the case in which the functions Y=sin X is to be plotted. Y and X are in user 
units, Y representing the sine of an agle X, which in this example is in radians. 

Before the program can be written, the plot must be planned. Since the 
value of sin X ranges from -1 to +1, the Y -axis in user units extends from -1 
to +1. The range of -angles to be plotted extends from - to + radians. The 
X-axis in user units, therefore, also ranges from - to + radians. Figure 4-1 
shows the plotting area and the correspondence between user units and plotter 
units. The coordinates of the zero point and the full scale point, in user units, 
are the only information needed to establish the relation. 



Granularity and Step Value 



When a line is to be plotted, the distance between the points plotted to 
define the line must be smaller for a line with sharp curves than for one with 
gradual curves. In other words, for two lines of the same length, it is neces- 
sary in order to obtain a given accuracy to calculate more points for a sharply 
curved line than for a gradually curving or straight line. This is done by re- 
ducing the granularity of the plot (that is, by increasing the frequency with 
whiclt the points to be plotted are calculated). 
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In the case of the function Y=sin X, from the example used earlier, large 
granularity could result in a misleading representation of the sine curve. The 
programmer, therefore, would make the granularity (or difference between suc- 
cessive values of X) small enough to result in a more accurate representation 
of the function (See Figure 3). He would program this difference just as he 
would if he were planning to print out a tabulation of the values of sin X. 

There is a limit to the effect a reduction in granularity will have on improv- 
ing the accuracy of a presentation. Beyond this limit, any further reduction in 
granularity increases the computer time required to calculate the coordinates of 
additional points and results in higher costs, but does not improve the accurary 
of the plot. With experience, the programmer will become able to judge effective- 
ly what granularity is optimum for a desired accuracy of presentation. Where 
experience is lacking, it is generally better to make the granularity somewhat 
large at first, then decrease it until the presentation is satisfactory. 

^ I FULL SCALE 

c t POINT 

S ( X-10, Y"10 Plotter Units ) 

Sj o ( X-ir, Y-1 User Units ) 

+1 10 f- 




-1 0 



PLOTTING 
AREA 



ZERO POINT 

( X»0,Y-0 Plotter Units ) 

( X--jr, Y«-l User Units ) 



0- 



4 

-10 Plotter Units 
— If User Units 



Figure 2. Plotting Area for Plotting Y=sin X of X Ranging from - to + Radians, 
Correlation between User Units and Plotter Units is Shown. 
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For X-Y recorders, which respond more slowly to data signals from the com- 
puter, the programmer must take into account the effects of the slower response 
and the inertia of the recorder system. These effects are manifested In several 
ways: 

1 . The recorder pen tends to draw a curve to fit the data points. 

2. Once curvature is established, the system tends to maintain curvature. 

3. The pen may not be able to keep pace with the rate at which the time 
share system supplies data to be plotted if the granularity is made 
too large. 

The inability of the pen to plot transmitted data when the granularity is too 
large is an effect of the mechanics servo characteristics of the pen drive system. 
The usual recorder pen cannot draw a reasonable plot at high speed when dis- 
tances between points are large, even though the plot consists merely of straight 
lines. The rate of data input is too fast for the pen drive system. 

To overcome this problem the plotter driver subroutine automatically limits 
the maximum step value between points to be plotted. In this subroutine, the 
maximum step value may be anything the programmer selects, from 10.0 to 0.0, 
where 10 repres jnts a full scale step size (10 plotter units), in which case the 
plotting takes place. ^ 




Y=SIN, X, X INCREMENTED BY /2 Y=XIN, X, X INCREMENTED BY 2 /50 

Figure 3 Effects on Plot Resulting from Selection of 
Granularity Value. 
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The step size comes into effect only when the figure to be plotted has long 
straight lines which are designated in the normal program by the coordinates of 
the end points, Only. The subroutine automatically breaks down such long lines 
into short segments no longer than the maximum step value. For normal plotting 
with a recorder, a limiting step value of l.O is recommended. Other step values 
may be found useful under certain conditions. 

The plotter driver software is designed to facilitate changing the step value 
so that the user may trade accuracy for speed according to his needs, i.e., he 
may opt for very fast, but less accurate plots for first approximations or for slower 
more presentable plots for final presentation. The subroutine for establishing 
the step value is generally called in the initialization portion of the program. 
If not called, the stop size is set to a default value of 1.0. 



Software Description 

The following sections describe the plotter-drive,: software for use with the 
Model TSP-212 and, through examples, demonstrate plotter programming principles. 

Programming to plot a function is demonstrated using the example (Fig. 4) in 
which Y=sin X is plotted for values of X ranging from - to + . The program is 
listed first in FORTRAN. 



FORTRAN Programming 

All statement numbers given for the FORTRAN example refer to the listing in 
Figure 4. 

Initialization consists of using appropriate statements to enter the coordinates 
of the "zero** and "full scale" points in both plotter ^nd user units. Also, the re- 
quired granularity and limiting step v?^.lue are set and other variables are defined 
as required. 

The plotting area for the sine function, in both user and plotter units, is 
shown in Figure 4. With this arrangement, the X- and Y- axes in user units cross 
in the center of the plotting area, as shown in Figure 3. The axes are plotted in 
addition to the sine curve. Furthermore, in order to ob^ • n a smooth curve, the 
number of points plotted on the sine curve is made relau/ely large. The program 
is initialized as follows: 
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The "zero" and "full scale" points are entered, along with the relationship of 
user to plotter units, in the OFFSET subroutine. This subroutine is brought into 
effect in statement 190* The arguments for this statement may be assigned in 
earlier statements or may be assigned numerical values directly. For convenience, 
variable names are used in the example and values are assigned beforehand In 
statements 110 through 150. Fifty points are to be plotted. The coordinates of 
these points are calculated by adding a constant to th3 value of X used in the 
previous calculation of sin X. This constant (the granularity) is 1/50 times 2 , 
the range of X, and is established in statement 160. 

The program is now initialized. No maximum allowable step size is indicated 
specifically by a statement calling the STEP subroutine. Omission of this state- 
ment from a FORTRAN program implies a maximum allowable step size of 1 plotter 
unit (1/10 of full scale). Whenever the separation between two data points to be 
plotted exceeds this distance, the plotter software will automatically calculate 
and plot points on a straight line between ^.he two data points, at intervals of 1 
plotter unit. 



Plotting Points 

Whenever the plotter writing device is to be moved, the subroutine PLOT is 
called in the following statement: 

CALL PLOT (X,Y, IP) 

The X-axes for the sine function in the example is plotted using statements 
230 and 240. Statement 230 positions the pen at X=0, Y=5, in plotter units. The 
pen is up so that it does not write while moving to that position. Statement 240 
moves the pen down onto the paper, then full scale in the horizontal direction to 
produce the X-axes. The Y-axes is plotted with statements 280 and 290. 
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Initialization 



ERIC 



1. Use the following statement to relate user units ^to plotter units. 
CALL OFFSET (XMIN, DX, YMIN, DY) 

where: XMIN, YMIN = coordinates of "zero" point in user units 

DX = Range of X in user units = XMAN - XMIN 
Range of X in plotter units 10 

DY = Range of Y in user units = YMAX - YMIN 
Range of Y in plotter units 10 

XMAN, YMAX = coordinates of "full scale" point in user units. 

NOTE: If OFFSET is not called in the program, the values of XMIN and YMIN 
are 0.; DX and DY are hO. 

2. If necessary, use the following statement to establish limiting step size. 
CALL STEP (G) 

where: G = limiting step value between points (in plotter units). Value 
of G may range from 0.0 to 10.0, where 10.0 - full scale. 
For X-Y recorders, a value-of 1.0 is recommended for normal 
plotting. 

NOTE: 1. If STEP subroutine is not called, limiting step size is 1.0. 

2. This subroutine call should appear as early as possible in the 
program . 

Plotting 

Use the following statement to put the plotter control unit into plot mode and 
plot a point. 

CALL PLOT (X, Y, IP) 

where: X, Y = coordinates of point to be plotted in units determined by 
value of IP, IP is a number which determines units of X 
and Y, and commands recorder pen to move in either the 
up or down position as follows: 

IP = 2 signifies "move with pen down, X and Y plotter units" 
IP = 3 signifies "move with pen up, X and Y in plotter units" 
IP =12 signifies "move with pen down, and X and Y in user units" 
IP =13 signifies "move with pen up, X and Y in user units" 
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Tcansforrinq from Plot to Print Mode 

Use the following statement to make sure all data points are plotted and 
change the plotter control unit to the print mode: 

CALL TTY 



I ooc 
1 10 
1 20 
I 30 
140 

1 50 

160 

190 
P.30 
240 

2 80 

2 90 

3 30 
340 

3 90 
400 
410 
420 

4 70 
4 80 
4 90 
500 



PLOT OF SIN(X) VS- X 

DATA Z» PI/0. 0,3. 14159625/ 
XKIN--PI 

DX»2*PX/lo 
YMIN--1. - 
Dr».2 

G«2. ♦PI/50 

CALL OFFSFT (XMIN, DX, YMIN, 
CALL PLOT (2, 5.0# 3) 

C10.# 5.0j R> 
C5.* 10. # 3) 
C5.# Z, P) 



CALL PLOT 
CALL PLOT 
CALL PLOT 
X-XMIN 
CALL PLOT 
10 Y-SIN(X) 
CALL PLOT 
X»X^6 

IF (X*LF.PI) CO 
CALL PLOT (2, 5 
CALL TTY 
STOP 
END 



CX, SI>i(X>, 13) 
<X# Y# 12) 



TO 10 
3) 



Once ihe axes have been plotted, the 
pen is raised and moved lo the start- 
ing point for plotting the sine func- 
lion (statements 330 and 340). Here 
user units are used (note the argu- 
pyj ment 13 in statement 340). Plotting 

of the sine function in user units can 
now begin, and is accomplished by 
means of a program loop (statements 
390 through 420) in which values of 
X are incremented by the value of G 
assigned in the initialization portion 
of the program. The pen is then rais- 
ed and moved to the left side .of the 
chart in readiness for the next plot 
(statement 470). Here plotter units 
are used. 



FIfl. 4 Listing for FORTRAN PrograAi for Plotting 
Y=sin X. 

the plo.ter control unit must be returned to ,h. ri , a "^T"""^ P'""«^ 



Returning to Print Modt - Once the 
desired function has heon plotted, 



ERIC 



II 

1-7 



A3 



lOOC PR96RAM 19 PLflT A RCCTANa.C 

10 IC (X«Y> ARC THE CffROI MATES fF TMC LtVDI LCfT HAND CflRMrp 

»02C <M> IS TME HEIOMT. CtRNER. 
lose (U) IS THE WIDTM. 

i04C (AN) IS THE MOLE. THAT THE RASE MAKCS UITW TUr r^vi Avt« 
105C ♦ HEASUREO CtUWTERCLtOcIlSt. 

:0«C (IP) IS TNE PEM P0SITIM l«OICATtR« (IE) MMi cia) im 
I07C ♦ NfVEMENT Tf THE LfHER LEFT MaJo CgRMER. 
no SUBRSUTINE RECKX, Y, M, " ilTlFJ 
ISO CALL trFSET(0.«1.5«0.«l.) 
130 CALL PLST (X« Y, IP) 
140 AR ■ .01745 « AN 
170 A « X 4 (« * C0S (AR)) 
ttO ■ • Y ♦ (H * SIN (AR)) 
1*0 CALL PLfT (A« B« 18) 
aeo C • A . (M * SIN (AR)) 
830 D • B ♦ (H • C0S (AR)) 
250 E • C - (W * C0S (AR)) 
2«0 r > 0 - (H ♦ SIN (AR)) 
8«5 CALL PLfT (C«D«18) 
270 CALL PLtT (E* F* 18> 
2S0 CALL PLtT (X« Y# 18) 
2»0 CALL TTY 
310 RETURN 
400 END 




(AR) is the angle (A) in the radians. 
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lOOC PR0«MM T0 PL0T MMCB LlNU 

!i:^L^* ™' CiWOIHATti 0P THE WfllMlNt tF THE lAMEO LINE. 
?!^.5fi''^' ™" CffRDlHATES flf TNC ENOlNt if THE MSNEO HME. 

ns CALL 0rrsET(o.*i.s*o**i.) 
120 Ba.tas 

laS TL«MRT((EX-X)MC4(EY-y)««t) 
130 AMft«(TL/l)/t. 
135 NtaANS 

137 XNI«||S 

138 Tft.«XMS*B 

i40 CMCA)a(EX-X)/1L 
}4S Slll<A>«<Cy-Y)/Tt 
ISO TIL-TL-Tm. 
ISS DL>T0L/<XMI«1*) 
1*0 llt«XHI«|. 

170 CALL FLtT<X*Y*13) 

171 OiKa6tI(A)*IL 
17t MY-I1II<A)*IL 

173 StX«efS<A)Ol 

174 ISY«IIIICA)«B 

175 XX«X 
174 YY«Y 

177 M 01 J-UNB 

180 ax-»ix«xx 

18S 0Ya0»Y<»YY 
IfO CALL PLOTCDX*»y«lt> 
195 SX-SSX^OX 
600 SY-SmOY 
810 CALL m.0TCSX*SY*l8) 
280 XXagX 
2«5 YY-SY 
330 01 CONTINUE 

23S CALL mr 

245 RETURN rj | 

250 END , X,YT*^ ^ ■ 

DX,DY-Jsx.SY 

(AlvtS) is the number of spaces. 
(TSI) is the total length of the spaces. 
(TDL) is the total length of the daihes. 
(DL) is the length of each eash. 
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OOC FMOMM Ti FLiT A CfNTIM LINI 

J!S iP'*^* ™* CiiHOlHATES «f TWI DfDlNO FtlMT. 

03C TNC L0Nf MSMCS ARC A^lltXIIIATn.y l.ftf INCMCS LMf AND 

OSC TMC TfTAL LCNtTM (TV) HUtT ig gtlML T0 M MBATCII TMAM a7S 
10 SUiRfUTINC CLINC (X«V«CX«gV) WMTCR TNAN fi.375 

IS CALL orrSCT C0.«t.9««ol«) 
SO Ba.ltS 

85 TL>MRT((gX-X)i»*t^(gY-Y)#«t) 
30 TNL.S0-(TL-U)/(U375> 
3S NLSO-TMLSO 
37 ANLSO«NLSD 
40 TLSD>AMLtt«(a«*B) 
4S TU.R«(TL-t.)-TLSO 
SO LLD«TLLO/A«LSD 
6S C«S(A)«(CX-X)/TL 
70 SlN(A»(CY-y)/TL 
7S CALL n.0TCX«Y«13) 
•0 RBX-OttCAl^LLO 
•S MYallNCAI^LLD 
90 S8X*CRS(A)M 
95 SSY*SIN(A)*B 

97 XX«X 

98 YY«Y 
200 DO OC J«1«NLS0 
205 OX«OBX^XX 
210 OYsMY^YY 
215 CALL FLtT(DX«DY«lt) 

220 sx*ssx^m 

22S SYaSSY^OY 
230 CALL PL0T(SX«SY«13> 
235 SXX«SSX«SX 
240 SYY*SSY«8Y 
245 CALL FL«T<SXX«SYY«12) 
250 SXXX*SSX«SXX 
255 SYYYaSSY^SYY 
240 CALL FL0T(SXXX«SYYY*13) 
245 XX-SXXX 
270 YY-SYYY 
275 02 CONTXNUC 
220 CALL PLOTCCX#EY«lt) 
283 CALL TTY 
295 RCTURN 
300 END 



IN. 




fNLSp) IS the LoLal number of long dashes, short dashes and spaces. 
(TI.SD) is the total length of the short dashes and spaces. 
(TJ,LD) is the total length of the long dashes. 
(I-LD) is the length of each long dash. 
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lOOC FRfWAM 1§ FL0T A CUGLC 

10 IC (X«y> ARC TNC CfMDlNATEft ff TMt CCNTUI tF TNC CIIICLC 
I02C (RAO) IS THE RADIUS IF TUB CUtLC 
no SIARfUTXHC CIRCLE CX«Y«RA») 
tlS CALL trrSET (0.«I.S«0*«U> 
180 C«MV>3.l4lSft«S/tM. 
188 CALL PLfT CX«Y«1S> 
185 CALL PL0T CX«RAD»Y*I3> 
130 AN«.Ca«.0 

I3S 80 XX«X«RAD«C«tCAHflLE«Cf«V) . 

140 YYaY4RA0*SINCAllflLC«GiNV) 
I4S CALL PLfT CXX«YY»I8> 

150 IP CIIA0-3*>S«I0«IS 

155 » IP CKAO-l.>««7«8 
IS* « tRAHBlS* 
157 M Tf 40 

150 7 OMMalO. - /-RAD 

ISf W Tf 40 
IM • fRANaf* 

141 Of Tf 40 
168 10 «RANa«* 

143 Of TO 40 

144 IS fRAN«3. 

145 Of Tf 40 
170 40 ANOLE-ANOLE^ORAM 

175 IP <34l— AN8LE) 8S«85«80 \\ X,Y I Xt RAD.Y 

180 85 CONTINUE ^ J » 

185 CALL PLfT CX^RA0«Y«I8> 
tfO CALL 
800 RETURN 
805 ENO 




(CONV) converts the angle degrees to radiant. 

(NOTE) (GRAN) provides a means of changing the angular location of (XX, YY) so as to 
generate a smoother circle. 
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ARC l4ltS TMURS Ot-M-tt 
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tOOC PRfORAM 1§ PLtT AN ARC 

tote <X*Y) ARC TNC CMROINATCS fF THt CZNTCR^tP THE ARC* 

• tORC (RAO) IS TMC RADIUS RF TNC ARC* 
103C (RA) IS THC AN«LC TliAT TCC MCtllMlNG PRINT NAKC8 WITH 
104C ♦ (♦X) AXIS NCASURCO CtlMtnCLfCKIIISC* 
tOSC (KA) IS TMC ANa.C THAT TNC IMtlM PRINT MAKES WITH TMC 
104C ♦ (♦X) AXIS NCASURCO CtlRitCRflktCKinSC* 
ttO SUSRRUTINC ARC (X«Y«RA&*tA«tA> 
ttS CALL RPrSCT <0*«t*S*0«#l«> 
ISO CfNV«S*t4tSffiS»/tRR* 
tRR CALL PLOT (X«V«tS) 
tfiS AMRLCaRA 

tC« RX-X4RA0«CfS€ANa.C*CRHV) 
t87 RY«V4RA0*SIN(AN«.C)»CiNV) 
18t CALL PLRT€RX«RY«t3) 
ISS flO XX«X«RA0«CR8(AHflLC*CfHV) 

t40 YY«Y«RAR*SIN(AMRLC*CtliV> 

t4S CALL PLRT(XX«YY«tR) 
ISO IP (RAD*S*)S«tO«tS 
ISS S IP (RA0-t.)4»7«R 
I5« 4 RRANatS. 
157 OR TO 40 
tSR 7 «RAN«tO* 

isf 00 TO 40 EX,E 

IM 8 RRAN«e* 

l«t 00 TO 40 

148 to SRAM - «• 
_ 143 00 TO 40 

144 15 ORAM - 3* 
^ 145 CO TO 40 

170 40 ANOLC ■ ANSLC^ORAN 

S75 IP €CA-AN0LC>8S«R5«R0 

180 £5 CONTINUC 

135 CX ■ X«RAR*COS(CA#CONV> 

190 CY ■ Y4RA0*SIN€CA«CONV) 

195 CALL PL8T (CX«CY«tR> 

eOO CAU. TTY 

210 RETURN 

215 CNO X, 




(CONV) converts the angle from degrees to radians. 

(GRAN) provides a means of changing the angular location of (XX, YY) so as to 
generate a smoother circle. 
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IOC PR0MAM Tf FLf T LtABU LINE 
UC (X«Y> ARC INK CtMilMATBS $¥ THE 
ISC CA) IS TNC AN«.C THAT INt LIAMB 
13C ♦ MCASURCO Of UNTUCLflCKIf I !!• 
i4C <0L> IS THE LDItTN 9f TMC LtAiCft 
20 SUM0UTINC LCAMCX»y«A*M.> 
30 CALL frrUTCO.« I t.) 
4t AS«.0I74««A 
50 CALL Pt0T(X«Y«13> 
40 B«fO.-A 
70 BR«B* .01745 

•0 XA-(Cei<AII>*(.lt7S>>-CCiltCMI>«C>«»|«|) 

too XZaXA^X 
110 VZaYA^Y 

leo CALL PLOT (X2«YZ«lt) 
130 Xa«XA«(SlN(AR)«(.0«t«)) 
140 YO«YA-(COS(AII>«(.OitO>) 
190 XMaXB^X 
1«0 YMaYO^Y 

170 CALL FLO'iT (Xll«yj||« lt> 
ISO CALL PLOT (X«Y«lt) 
190 XC«(COS(iUI>*IL> 
fiOO YC«(S1M<AII)«IL> 
tlO XV«XC«X 
8ft0 YV-YC«>Y 

230 CALL PLOT(XV«YV«lt) 
£40 X0«XV««1B9 
a«0 CALL, PLOT (XO«YV«lt> 

270 CALL 
300 RCTUBN 
310 END 



T?tP or THE 
NMCES WITH 

LIINE. 



ARMMIBAO. 

THE (♦X) AXIS 




0\R) is the angle (A)Un radians. 



J 



xc 



II 
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lOOC PR06RAM Te PLtfT DIMCNSIfN LINE 

nOC (X«Y> ARE THE C00RDINATES THE LfUER LEFT HAND ARROWHEAD 
180C * P0INT 0F THE DIMENSION LINE 

130C (A) IS THE AN6LE THAT THE DINENSI0N LINE MAKES WITH THE 

140C ♦ (-^X) AXIS MEASURED COUNTERCLOCKWISE 

ISOC (DL> IS THE LENGTH OF THE PtMENSION LINE IN INCHES 

160C MEASURED FROM THE TIP OF ONI ARROWHEAD TO THE TIP OF THE OTHER 

170 SUBROUTINE DINENL (X«Y«A«OL) 

180. CALL OFFSET (0«« 1.5« 0.« I.) 

190 AR • •01T4S«A 

200 CALL PLOT (X« Y« 13) 

210 B*90.-A 

220 BR ■ B*.01745 

230 XA " (C0S(AR>*(.1875>> • (COS(BR>*( .031 3> > 

240 YA « (SIN(AR>4i(.187S>> •^(COS(AR>*( .031 3) > 

250 IF (DL-.5>10«10«5 

240 5 CONTINUE 

270 XZ - XA X 

200 YZ « YA Y 

290 CALL PLOT (XZ« YZ« 12) 

300 XB«XA'f($IN(AR>4i(.0626>> 

310 YBaYA*(C0S(AR>*(.O626>> 

320 XW ■ XB X 

330 YW * YB Y 

340 CALL PLOT (XW« YW« 12) 

350 CALL PLOT (X« Y« 12) 

340 XC « (COS(AR>*DL> 

370 YC ■ (SIN(AR>*DL> 

380 XV ■ XC X 

390 YV ■ YC ♦ Y 

400 CALL PLOT (XV« YV« 12) 

410 XO ■ XC - XA 

420 YD • YC - YA 

430 XU ■ XD X 

440 YU ■ YD ♦ Y 

450 CALL PLOT (XU« YU« 12) 

440 XE • XC - XB 

470 YE ■ YC - YB 

480 XT ■ XE X 

490 YT ■ YE ♦ Y 

500 CALL PLOT (XT« YT« 12) 

510 CALL PLOT (XV« YV« 12) 

520 60 TO 15 

530 10 CONTINUE 

540 XZ-X-XA 

550 YZ-Y-YA 

540 CALL PLOT (XZ«YZ«12> 
570 XB"XA4>(SINCAR>4<(.0424>> 
580 YB"YA-(C0S(AR>4>(.0626>> 
590 XW«X«XB 
400 YW-Y-YB 

410 CALL PLOT (XW«YW«12) 
420 CALL PLOT (X«Y«12> 
430 XC>(C0S(AR>4>DL> 
440 YC«(SIN(AR>4>DL> 
450 XV'XC-^X 

440 Yv«yc+y 

470 CALL PLOT (XV«YV«12> 

480 XD"XC-fXA II 
490 YD-YC+YA 2-7 
700 XU"X-fXD 
710 YU»Y*yD 

720 CALL PLOT (XU«YU«12) 
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750 XT«XC4X - 
760 YT«Yt4Y 

770 CALL PLfT (XT«YT#12) 
780 CALL FL»T (XV#YV#12) 

• 790 XXAii(CfS(AR}«.eS} 
800 YYA-(S1N(AR)*.25) 
^ 810 XXB»XXA<fXV 
820 YYB«YYA*YV 
830 XXC-X-XXA 
840 YYC-Y-YYA 
850 CALL PL0T (XXB«YYB«18} 
860 CALL PLfT (XXC«YYC«12) 
870 15 C0NTINUE 
880 CALL TTY 
890 RETURN 
900 END 




(State Use Only) 
(1-6) 

Project Director RicharH PnlnhPr Institution or agency Vlnrpnnpg TTnU/ o rgUy 
Proposed Duration: (mos.) 12 months Starting date: E ndlr.g date; 12/3 1 /71 

EXPENDITURE BACKTNG SHEET 



ERIC 



ITEHS 



DIRECT COSTS 

1. Personnel (include all salaries 
of professional persons Involved 
In project) (7-12) 

2. Contractual services (services Computer Programming 
of clerical persons or nonpro- 
fessional staff) (13-18) 



3 
4 
5. 
6, 



Employee benefits (19-24) 

Travel (25-30) 

Supplies and materials (31-36) 

Communications (Include phone 

calls, printing . . .) (37-42) 

Properties (rentals or purchase Computer Time Shar 

of equipment) (43-48) Tfermlnal Purchase 



COSTS 



Agency 



State 
and/or Federal 



880.00 



8. 
9. 

10. 



Facilities 



(49-54) 



ijlotter Purchase 



Product production and dlsseol- 
uatlon (55-60_) 



Project evaluation 



B. ■ INDIRECT COSTS 



C. TOTAL COSTS 



(61-66) 
(67-72) 

(73-78) 



295.80 
539.20 



ng 5,837.28 
1,256.95 
3,365.70 



445.74 



$12, 620.-67 



State Contribution $10,000.00 Vincennes University Contribution $2,620.67 
♦Present a more detailed expondlture report on a separate page. 
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